--Releasing Task

pragma Ravenscar;

with SO;
use SO;
with System;
with Ada.Synchronous_Task_Control;
use Ada.Synchronous_Task_Control;
with Ada.Real_Time;
use Ada.Real_Time;
with Ada.Text_IO;
use Ada.Text_IO;


package ReleasingTask is

    task type RT(Pri : System.Priority; Cycle_Time : Natural; Id : Positive) is
      pragma Priority(Pri);
   end RT;

   RT1 : RT(10,1000000,1);

end ReleasingTask;
